home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 21
/
Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso
/
Aminet
/
comm
/
cnet
/
SE_MultiRead.lha
/
MultiRead.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-07-24
|
1KB
|
34 lines
/* Multi-Read File */
bufferflush;options results
tr=transmit;se=sendstring;sf=sendfile;pr=prompt;gu=getuser;gc=getchar
gu 47;Local=result;gu 1302307;cmd=result
/*Choose the default Path for the Requestor when used in local mode */
/*This path must end in a ":" or a "/"!! */
path="CNet:"
if cmd="" then signal select
else do
se "*0"cmd"}"
tr "cfPress cdReturncf.....g0f1"
exit
end
Select:
If Local~=-1 then do
bbscommand !!rf
exit
end
else do
if ~ exists("libs:rexxreqtools.library") then Do ; Transmit "Can't find rexxreqtools.library, aborting.." ; Exit ; End
if ~ show('L',"rexxreqtools.library") then if ~addlib('rexxreqtools.library',0,-30,0) then exit
loc=showlist('l','intuition.library',,'a')
adr=c2d(next(loc,60),4)
end
call rtfilerequest(path,,"Select that file.....",,"rtfi_flags=freqf_multiselect rt_screen="||adr,file)
if file == 1 then do i=1 to file.count
se "*0"file.i"}"
tr "cfPress cdReturncf.....g0f1"
end
exit